0 REM << CD41-4 >>
1 REM ==================================
2 REM    COMMODARES PROBLEM #37-2 :
3 REM    OUTCAST ORDER
4 REM    SOLUTION BY
5 REM    DAVID HOFFNER
6 REM ==================================
10 INPUT"PEOPLE";N:INPUT"OUTCAST #";M:DIM A(N)
20 Y=Y+1+N*(Y=N):ON A(Y) GOTO 20:X=X+1:IF X=M THEN PRINT Y:A(Y)=1:X=0
30 GOTO 20